home *** CD-ROM | disk | FTP | other *** search
/ The CDPD Public Domain Collection for CDTV 4 / CDPD_IV.bin / e / mailinglists / amigae.0294feb.archive / 000111_donews!crash!rb…rmstadt.de!anh_Mon, 28 Feb 94 04:43:38 PST.msg < prev    next >
Internet Message Format  |  1994-05-26  |  9KB
  1. Received: by bkhouse.cts.com (V1.17-beta/Amiga)
  2.       id <1xq9@bkhouse.cts.com>; Mon, 28 Feb 94 04:43:38 PST
  3. Received: from crash by donews.cts.com with uucp
  4.     (Smail3.1.28.1 #18) id m0pb6C1-0002SvC; Mon, 28 Feb 94 03:31 PST
  5. Received: from rbhp89.rbg.informatik.th-darmstadt.de by crash.cts.com with smtp
  6.     (Smail3.1.28.1 #18) id m0pb5vu-0000RvC; Mon, 28 Feb 94 03:14 PST
  7. Received: from rbhp44.rbg.informatik.th-darmstadt.de by rbhp89.rbg.informatik.th-darmstadt.de with SMTP
  8.     (1.36.108.4/15.6) id AA22639; Mon, 28 Feb 1994 12:14:00 +0100
  9. Received: by rbhp44.rbg.informatik.th-darmstadt.de
  10.     (1.36.108.4/15.6) id AA18820; Mon, 28 Feb 1994 12:14:08 +0100
  11. Message-Id: <m0pb5vu-0000RvC@crash.cts.com>
  12. Date: Mon, 28 Feb 94 12:14:04 MEZ
  13. Full-Name: Olivier Anh
  14. In-Reply-To: <9402251437.AA01104@plucky.safb.af.mil>; from "Barry D Wills" at Feb 25, 94 8:37 am
  15. Mailer: Elm [revision: 66.25]
  16. From: Olivier Anh <anh@rbhp56.rbg.informatik.th-darmstadt.de>
  17. To: AmigaE@bkhouse.cts.com (The AmigaE Mailing List)
  18. Subject: HHEELLPP !!!!!
  19.  
  20. Hi !
  21.  
  22. I'm coding a GUI for LhA... Working on several problems at the same time,
  23. I found that they are going to the same problem : saving a list of string
  24. into my own array :
  25. I'm reading the rtfilelist (ReqTools.library) and want to save the members
  26. filelist.name into my own array of string...
  27. This array is used as pointers to string :
  28.   FOR i:=0 TO 10 DO my-array[i]:=String(100)
  29.  
  30. I try to make a StrCopy(my-array[x], filelist.name,ALL) :-> GURU
  31. then assigninga PTR TO CHAR variable to my-array[x] and copy characters per
  32. characters in a loop : 
  33. FOR i:=0 TO EstrLen(filelist.name) DO s[i]:=filelist.name[i] :-> GURU
  34.  
  35. The same problem occurs when I'm reading a file and save each line in my-array2
  36.  
  37. How can I do that ?
  38.  
  39. Following an example of the second example
  40.  
  41. Thanx
  42. --
  43. -------------------------------------------------------------------------------
  44.    / / Olivier ANH                        |' And may the Force be with You ! '
  45. \ X /  anh@rbg.informatik.th-darmstadt.de |             - Return of the Jedi -
  46. -------------------------------------------------------------------------------
  47.  
  48. /* IntuiSup & own ListView test UNDER WB1.3 */
  49.  
  50.  
  51. MODULE 'intuisup',
  52.        'graphics/text',
  53.        'intuition/intuition',
  54.        'intuition/screens',
  55.        'libraries/intuisup'
  56.  
  57. ENUM NONE,ERR_INTUISUP,ERR_REQTOOLS,ERR_WINDOW,BRK
  58.  
  59. CONST WIDCMP     = IDCMP_CLOSEWINDOW OR
  60.                    IDCMP_GADGETUP OR
  61.                    IDCMP_GADGETDOWN OR
  62.                    IDCMP_MOUSEMOVE,
  63.       WFLAGS     = WFLG_DRAGBAR OR
  64.                    WFLG_DEPTHGADGET OR
  65.                    WFLG_CLOSEGADGET OR
  66.                    WFLG_WINDOWACTIVE,
  67.       MAXGADGET  = GADGETSIZE*15,
  68.       RENDERINFO = 0
  69.  
  70.  
  71. DEF win : PTR TO window,
  72.     scr : PTR TO screen,
  73.     msg : PTR TO intuimessage,
  74.     loop, ri, glist, class, code, iaddress, speciallink,
  75.     txtattr,gaddata,
  76.     arccontlist[100] : ARRAY
  77.  
  78. PROC main() HANDLE
  79.     DEF i
  80.     intuisupbase:=OpenLibrary('intuisup.library',0)
  81.     IF intuisupbase=NIL THEN Raise(ERR_INTUISUP)
  82.     scr:=NIL
  83.     ri:=IgetRenderInfo(scr,RENDERINFO)
  84.     win:=OpenW(0,11,300,150,WIDCMP,WFLAGS,'Test',0,1,NIL)
  85.     IF win=NIL THEN Raise(ERR_WINDOW)
  86.  
  87.     txtattr:=['topaz',8,0,0] : textattr
  88.     gaddata:=[ 7,$00000008,10, 16, 16, 82,        0,txtattr,0,0,0,
  89.                1,$00000806,30, 16,160,  8,        0,txtattr,0,0,0,
  90.                1,$00000806,30, 24,160,  8,        0,txtattr,0,0,0,
  91.                1,$00000806,30, 32,160,  8,        0,txtattr,0,0,0,
  92.                1,$00000806,30, 40,160,  8,        0,txtattr,0,0,0,
  93.                1,$00000806,30, 48,160,  8,        0,txtattr,0,0,0,
  94.                1,$00000806,30, 56,160,  8,        0,txtattr,0,0,0,
  95.                1,$00000806,30, 64,160,  8,        0,txtattr,0,0,0,
  96.                1,$00000806,30, 72,160,  8,        0,txtattr,0,0,0,
  97.                1,$00000806,30, 80,160,  8,        0,txtattr,0,0,0,
  98.                1,$00000806,30, 88,160,  8,        0,txtattr,0,0,0,
  99.                0,        0, 0,0,  0,  0,          0,      0,0,0,0] : gadgetdata
  100.     glist:=IcreateGadgets(ri,gaddata,0,11,NIL)
  101.     IdisplayGadgets(win,glist)
  102.  
  103.     FOR i:=0 TO 99 DO arccontlist[i]:=String(100)
  104.  
  105.     IF getarccontent()=FALSE THEN Raise(NONE)
  106.     loop:=TRUE
  107.     REPEAT
  108.         WaitPort(win.userport)
  109.         msg:=IgetMsg(win.userport)
  110.         IF CtrlC() THEN Raise(BRK)
  111.         class:=msg.class
  112.         code:=msg.code
  113.         iaddress:=msg.iaddress
  114.         speciallink:=msg.speciallink
  115.         IreplyMsg(msg)
  116.         SELECT class
  117.         WriteF('Selecting ')
  118.             CASE IDCMP_CLOSEWINDOW
  119.                 WriteF('CloseWindow\n')
  120.                 loop:=FALSE
  121.             CASE ISUP_ID
  122.                 WriteF('Isup\n')
  123.                 dogadget()
  124.         ENDSELECT
  125.     UNTIL loop=FALSE
  126.     closeall()
  127. EXCEPT
  128.     closeall()
  129.     IF exception>0  THEN
  130.         WriteF('Couldn\at \s !\n',ListItem(['do anything',
  131.                                          'open IntuiSup.library',
  132.                                          'open ReqTools.library',
  133.                                          'open Window',
  134.                                          'continue\n*** User Break'],
  135.                                          exception))
  136. ENDPROC
  137.  
  138. PROC dogadget()
  139.     DEF i
  140.     SELECT code
  141.         CASE 0
  142.             WriteF('    Scroller \d\n',iaddress)
  143.             Box(30,27,190,107,3)
  144.             Colour(1,0)
  145.             FOR i:=0 TO 9
  146.                 TextF(30,33+(i*8),'\s',arccontlist[i])
  147.             ENDFOR
  148.         DEFAULT
  149.             WriteF('    Item \d\n',code)
  150.         ENDSELECT
  151. ENDPROC
  152.  
  153. /* getarccontent read a LhA message and only save what is between '-------- '
  154.    NOTE : the WriteF() statements are here to debug
  155. */
  156. PROC getarccontent()
  157.     DEF t[512]   : STRING,
  158.         filehandle,
  159.         ok,
  160.         i,
  161.         maxitem,
  162.         k : PTR TO CHAR
  163. WriteF('        Procedure getarccontent()\n')
  164.     IF FileLength('Esources:ELha.t')=-1
  165.         WriteF('GetArcList : Can\at find ELha TempFile !')
  166.         RETURN FALSE
  167.     ENDIF
  168.     IF (filehandle:=Open('Esources:ELha.t',OLDFILE))=NIL
  169.         WriteF('GetArcList : Can\at open ELha TempFile !')
  170.         RETURN FALSE
  171.     ENDIF
  172.     REPEAT
  173.         ok:=ReadStr(filehandle,t)
  174.     UNTIL ((ok=-1) OR (InStr(t,'-------- ',0)=0))
  175.     IF InStr(t,'-------- ',0)=0
  176.         i:=0
  177.         REPEAT
  178.             ok:=ReadStr(filehandle,t)
  179.             IF ((ok<>-1) AND (InStr(t,'-------- ',0)=-1))
  180.                 MidStr(t,t,43,EstrLen(t)-42)
  181.                 INC i
  182. WriteF('\s\n - ',t)
  183.  
  184. /* Here are beginning my problems, sniff */
  185.  
  186.                 k:=arccontlist[i]
  187.                 FOR ok:=0 TO StrLen(t)+1
  188. WriteF('\c',t[ok])
  189.                     k[ok]:=t[ok]
  190.                 ENDFOR
  191.  
  192. /* The problems are ending here */
  193.  
  194. WriteF('\n')
  195.             ENDIF
  196.         UNTIL ((ok=-1) OR (InStr(t,'-------- ',0)=0))
  197.     ENDIF
  198. WriteF('Close\n')
  199.     Close(filehandle)
  200.     maxitem:=i
  201.     IF i<=10 THEN maxitem:=10
  202. WriteF('Displaying')
  203.     IsetGadgetAttributes(glist,0,0,0,10,maxitem,0)
  204.     Box(30, 27,190,107,3)
  205.     Colour(1,0)
  206.     FOR ok:=0 TO 9
  207.         TextF(30, 33+(ok*8),'\d, \s',ok,arccontlist[ok])
  208.     ENDFOR
  209. WriteF('        End of getarccontent\n')
  210. ENDPROC TRUE
  211.  
  212. PROC closeall()
  213.     IF ri           THEN IfreeRenderInfo(ri)
  214.     IF glist        THEN IfreeGadgets(glist)
  215.     IF intuisupbase THEN CloseLibrary(intuisupbase)
  216.     IF win          THEN CloseW(win)
  217.     CleanUp(0)
  218. ENDPROC
  219. From donews!crash!dcs.gla.ac.uk!mccracal Mon, 28 Feb 94 04:43:48 PST
  220. Received: by bkhouse.cts.com (V1.17-beta/Amiga)
  221.       id <1xqe@bkhouse.cts.com>; Mon, 28 Feb 94 04:43:48 PST
  222. Received: from crash by donews.cts.com with uucp
  223.     (Smail3.1.28.1 #18) id m0pb6gS-0002SvC; Mon, 28 Feb 94 04:02 PST
  224. Received: from vanuata.dcs.gla.ac.uk by crash.cts.com with smtp
  225.     (Smail3.1.28.1 #18) id m0pb6EN-000026C; Mon, 28 Feb 94 03:33 PST
  226. Received: from attu.dcs.gla.ac.uk by goggins.dcs.gla.ac.uk with LOCAL SMTP (PP) 
  227.           id <04471-0@goggins.dcs.gla.ac.uk>; Mon, 28 Feb 1994 11:33:03 +0000
  228. Received: by attu.dcs.gla.ac.uk (4.1/Dumb) id AA04258;
  229.           Mon, 28 Feb 94 11:32:54 GMT
  230. Date: Mon, 28 Feb 94 11:32:54 GMT
  231. Message-Id: <9402281132.AA04258@attu.dcs.gla.ac.uk>
  232. From: mccracal@dcs.gla.ac.uk
  233. To: AmigaE@bkhouse.cts.com
  234. Subject: Re: fd2module
  235.  
  236.  
  237. > >> Yep! Definately wand fd2module <<
  238. > >> Bob Monaghan <<
  239. > 
  240. > Not really its easy just get your fd type fd2pragma (if uve got it)
  241. > and then use prgama2module 
  242. > 
  243. > Its as easy as that!
  244. > 
  245. Unfortunatly, no it isn't. I wrote fd2module because when I tried what you
  246. have just suggested it didn't work!
  247.  
  248.     Alex McCracken
  249. Weinberg's Second Law:
  250.     If builders built buildings the way programmers wrote programs,
  251. then the first woodpecker that came along would destroy civilization!